home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_64874.txt < prev    next >
Text File  |  1989-08-22  |  16KB  |  710 lines
  1. -- background: 64874 from stack: in
  2. -- bmap block id: 65239
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.1.3 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   put line (line 2 of fld "key") of answerTracker into theLocs
  11.   if theLocs is not empty then
  12.     repeat with i = 1 to number of lines in fld "origins"
  13.       get item (i*2 - 1) to (i*2) of theLocs
  14.       set the loc of bg btn (i + 6) to it
  15.     end repeat
  16.   else
  17.     repeat with j = 1 to number of lines in fld "origins"
  18.       set the loc of bg btn (j + 6) to (line j of fld "origins")
  19.     end repeat
  20.   end if
  21.   pass openCard
  22. end openCard
  23.  
  24. on closeCard
  25.   global answerTracker
  26.   get line 2 of fld "key"  -- says which line of global to worry about
  27.   put empty into line it of answerTracker
  28.   repeat with i = 1 to number of lines in fld "origins"
  29.     put the loc of bg btn (i + 6) & "," after line it of answerTracker
  30.   end repeat
  31.   delete last char of line it of answerTracker
  32.   pass closeCard
  33. end closeCard
  34.  
  35. on moveButton
  36.   get fld "decisions"
  37.   repeat until the mouse is up
  38.     if item 2 of the mouseLoc > line 1 of it
  39.     then set the loc of the target to the mouseLoc
  40.   end repeat
  41.   put the loc of the target into temp
  42.   if item 1 of the loc of the target > (line 2 of it) then
  43.     if item 2 of the loc of the target < (line 3 of it) then
  44.       validate (line 1 of fld "destinations")
  45.     else if item 2 of the loc of the target < (line 4 of it) then
  46.       validate (line 2 of fld "destinations")
  47.     else if item 2 of the loc of the target < (line 5 of it) then
  48.       validate (line 3 of fld "destinations")
  49.     else if item 2 of the loc of the target < (line 6 of it) then
  50.       validate (line 4 of fld "destinations")
  51.     else if item 2 of the loc of the target < (line 7 of it) then
  52.       validate (line 5 of fld "destinations")
  53.     else if item 2 of the loc of the target < (line 8 of it) then
  54.       validate (line 6 of fld "destinations")
  55.     else validate (line 7 of fld "destinations")
  56.   end if
  57.   if the loc of the target = temp
  58.   then set the loc of the target to line (number of the target - 6) of fld "origins"
  59. end moveButton
  60.  
  61. on validate where
  62.   repeat with i = 1 to number of lines in fld "origins"
  63.     if the number of the target = (i + 6) then next repeat
  64.     if the loc of bg btn (i + 6) = where then exit validate
  65.   end repeat
  66.   set the loc of the target to where
  67. end validate
  68.  
  69. on hideFeedback
  70.   lock screen
  71.   hide fld "Feedback1"
  72.   hide fld "Feedback2"
  73.   hide fld "Feedback3"
  74.   hide fld "Feedback4"
  75.   hide fld "Feedback5"
  76.   hide fld "Feedback6"
  77.   hide fld "Feedback7"
  78.   hide fld "Feedback8"
  79.   hide fld "CorrectAnswer"
  80.   hide fld "MasterFeedback"
  81.   hide bg btn "Done"
  82.   unlock screen
  83. end hideFeedback
  84.  
  85. on showFeedback
  86.   lock screen
  87.   show fld "Feedback1"
  88.   show fld "Feedback2"
  89.   show fld "Feedback3"
  90.   show fld "Feedback4"
  91.   show fld "Feedback5"
  92.   show fld "Feedback6"
  93.   show fld "Feedback7"
  94.   show fld "Feedback8"
  95.   show fld "CorrectAnswer"
  96.   show fld "MasterFeedback"
  97.   show bg btn "Done"
  98.   unlock screen
  99. end showFeedback
  100.  
  101.  
  102. -- part 3 (field)
  103. -- low flags: 01
  104. -- high flags: 0000
  105. -- rect: left=18 top=1 right=38 bottom=442
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 156
  110. -- text size: 24
  111. -- style flags: 10240
  112. -- line height: 32
  113. -- part name: Title
  114.  
  115.  
  116. -- part 14 (button)
  117. -- low flags: 00
  118. -- high flags: 0000
  119. -- rect: left=443 top=5 right=72 bottom=512
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Instant Reference
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   instantReference "1.1.3"
  131. end mouseUp
  132.  
  133.  
  134. -- part 15 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=480 top=143 right=172 bottom=511
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 1310 / 1310
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Student Services
  146. ----- HyperTalk script -----
  147. on mousedown
  148.   SSpopUp
  149. end mousedown
  150.  
  151. on mouseup
  152.   if the mouseloc is not within the rect of me then exit to hyperCard
  153.   doSS
  154. end mouseup
  155.  
  156.  
  157.  
  158. -- part 16 (button)
  159. -- low flags: 00
  160. -- high flags: 2000
  161. -- rect: left=482 top=176 right=205 bottom=511
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 162 / 162
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Help
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   Help
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 17 (button)
  178. -- low flags: 00
  179. -- high flags: 2000
  180. -- rect: left=482 top=294 right=320 bottom=509
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 1236 / 1236
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Last Menu
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   go card "What is OSI Model? P/1"
  192. end mouseUp
  193.  
  194.  
  195.  
  196.  
  197. -- part 18 (button)
  198. -- low flags: 00
  199. -- high flags: 0000
  200. -- rect: left=478 top=319 right=341 bottom=498
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 1401 / 1401
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Prev
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.  
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 19 (button)
  217. -- low flags: 00
  218. -- high flags: 0000
  219. -- rect: left=493 top=319 right=341 bottom=512
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 1400 / 1400
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: Next
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.  
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 21 (field)
  236. -- low flags: 01
  237. -- high flags: 0000
  238. -- rect: left=16 top=38 right=65 bottom=441
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 0
  242. -- font id: 156
  243. -- text size: 20
  244. -- style flags: 0
  245. -- line height: 26
  246. -- part name: Subtitle
  247.  
  248.  
  249. -- part 22 (field)
  250. -- low flags: 01
  251. -- high flags: 0000
  252. -- rect: left=14 top=70 right=109 bottom=445
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 0
  256. -- font id: 156
  257. -- text size: 16
  258. -- style flags: 0
  259. -- line height: 17
  260. -- part name: Header
  261.  
  262.  
  263. -- part 23 (field)
  264. -- low flags: 01
  265. -- high flags: 0000
  266. -- rect: left=16 top=112 right=132 bottom=445
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 0
  270. -- font id: 3
  271. -- text size: 10
  272. -- style flags: 256
  273. -- line height: 15
  274. -- part name: Instruction
  275.  
  276.  
  277. -- part 24 (button)
  278. -- low flags: 00
  279. -- high flags: 8002
  280. -- rect: left=21 top=267 right=286 bottom=167
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 1
  284. -- font id: 156
  285. -- text size: 16
  286. -- style flags: 0
  287. -- line height: 21
  288. -- part name: Application
  289. ----- HyperTalk script -----
  290. on mouseDown
  291.   moveButton
  292. end mouseDown
  293.  
  294.  
  295. -- part 25 (button)
  296. -- low flags: 00
  297. -- high flags: 8002
  298. -- rect: left=21 top=227 right=246 bottom=167
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 156
  303. -- text size: 16
  304. -- style flags: 0
  305. -- line height: 21
  306. -- part name: Presentation
  307. ----- HyperTalk script -----
  308. on mouseDown
  309.   moveButton
  310. end mouseDown
  311.  
  312.  
  313. -- part 26 (button)
  314. -- low flags: 00
  315. -- high flags: 8002
  316. -- rect: left=21 top=207 right=226 bottom=167
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 156
  321. -- text size: 16
  322. -- style flags: 0
  323. -- line height: 21
  324. -- part name: Session
  325. ----- HyperTalk script -----
  326. on mouseDown
  327.   moveButton
  328. end mouseDown
  329.  
  330.  
  331. -- part 27 (button)
  332. -- low flags: 00
  333. -- high flags: 8002
  334. -- rect: left=21 top=167 right=186 bottom=167
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 1
  338. -- font id: 156
  339. -- text size: 16
  340. -- style flags: 0
  341. -- line height: 19
  342. -- part name: Transport
  343. ----- HyperTalk script -----
  344. on mouseDown
  345.   moveButton
  346. end mouseDown
  347.  
  348.  
  349. -- part 28 (button)
  350. -- low flags: 00
  351. -- high flags: 8002
  352. -- rect: left=21 top=287 right=306 bottom=167
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 1
  356. -- font id: 156
  357. -- text size: 16
  358. -- style flags: 0
  359. -- line height: 21
  360. -- part name: Network
  361. ----- HyperTalk script -----
  362. on mouseDown
  363.   moveButton
  364. end mouseDown
  365.  
  366.  
  367. -- part 29 (button)
  368. -- low flags: 00
  369. -- high flags: 8002
  370. -- rect: left=21 top=247 right=266 bottom=167
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 156
  375. -- text size: 16
  376. -- style flags: 0
  377. -- line height: 21
  378. -- part name: Data Link
  379. ----- HyperTalk script -----
  380. on mouseDown
  381.   moveButton
  382. end mouseDown
  383.  
  384.  
  385. -- part 30 (button)
  386. -- low flags: 00
  387. -- high flags: 8002
  388. -- rect: left=21 top=187 right=206 bottom=167
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 156
  393. -- text size: 16
  394. -- style flags: 0
  395. -- line height: 21
  396. -- part name: Physical
  397. ----- HyperTalk script -----
  398. on mouseDown
  399.   moveButton
  400. end mouseDown
  401.  
  402.  
  403. -- part 42 (field)
  404. -- low flags: 81
  405. -- high flags: 2007
  406. -- rect: left=8 top=36 right=94 bottom=231
  407. -- title width / last selected line: 0
  408. -- icon id / first selected line: 0 / 0
  409. -- text alignment: 0
  410. -- font id: 156
  411. -- text size: 16
  412. -- style flags: 0
  413. -- line height: 17
  414. -- part name: Feedback1
  415.  
  416.  
  417. -- part 43 (field)
  418. -- low flags: 81
  419. -- high flags: 2007
  420. -- rect: left=8 top=159 right=216 bottom=231
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 0
  424. -- font id: 156
  425. -- text size: 16
  426. -- style flags: 0
  427. -- line height: 17
  428. -- part name: Feedback3
  429.  
  430.  
  431. -- part 44 (field)
  432. -- low flags: 81
  433. -- high flags: 2007
  434. -- rect: left=8 top=219 right=277 bottom=231
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 0
  438. -- font id: 156
  439. -- text size: 16
  440. -- style flags: 0
  441. -- line height: 17
  442. -- part name: Feedback4
  443.  
  444.  
  445. -- part 46 (field)
  446. -- low flags: 81
  447. -- high flags: 2007
  448. -- rect: left=284 top=147 right=205 bottom=507
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 0
  452. -- font id: 156
  453. -- text size: 16
  454. -- style flags: 0
  455. -- line height: 17
  456. -- part name: CorrectAnswer
  457.  
  458.  
  459. -- part 47 (field)
  460. -- low flags: 81
  461. -- high flags: 2004
  462. -- rect: left=147 top=132 right=304 bottom=356
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 0 / 0
  465. -- text alignment: 0
  466. -- font id: 156
  467. -- text size: 16
  468. -- style flags: 0
  469. -- line height: 17
  470. -- part name: MasterFeedback
  471.  
  472.  
  473. -- part 45 (field)
  474. -- low flags: 81
  475. -- high flags: 2007
  476. -- rect: left=284 top=187 right=245 bottom=507
  477. -- title width / last selected line: 0
  478. -- icon id / first selected line: 0 / 0
  479. -- text alignment: 0
  480. -- font id: 156
  481. -- text size: 16
  482. -- style flags: 0
  483. -- line height: 17
  484. -- part name: Feedback5
  485.  
  486.  
  487. -- part 48 (button)
  488. -- low flags: 80
  489. -- high flags: A002
  490. -- rect: left=215 top=279 right=296 bottom=284
  491. -- title width / last selected line: 0
  492. -- icon id / first selected line: 0 / 0
  493. -- text alignment: 1
  494. -- font id: 0
  495. -- text size: 12
  496. -- style flags: 0
  497. -- line height: 16
  498. -- part name: Done
  499. ----- HyperTalk script -----
  500. on mouseUp
  501.   lock screen
  502.   hide fld "MasterFeedback"
  503.   hide bg btn "Done"
  504.   unlock screen
  505. end mouseUp
  506.  
  507.  
  508.  
  509. -- part 49 (field)
  510. -- low flags: 81
  511. -- high flags: 2007
  512. -- rect: left=284 top=207 right=265 bottom=507
  513. -- title width / last selected line: 0
  514. -- icon id / first selected line: 0 / 0
  515. -- text alignment: 0
  516. -- font id: 156
  517. -- text size: 16
  518. -- style flags: 0
  519. -- line height: 17
  520. -- part name: Feedback2
  521.  
  522.  
  523. -- part 50 (field)
  524. -- low flags: 81
  525. -- high flags: 2007
  526. -- rect: left=284 top=227 right=285 bottom=507
  527. -- title width / last selected line: 0
  528. -- icon id / first selected line: 0 / 0
  529. -- text alignment: 0
  530. -- font id: 156
  531. -- text size: 16
  532. -- style flags: 0
  533. -- line height: 17
  534. -- part name: Feedback6
  535.  
  536.  
  537. -- part 51 (field)
  538. -- low flags: 81
  539. -- high flags: 2007
  540. -- rect: left=284 top=248 right=305 bottom=507
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 0 / 0
  543. -- text alignment: 0
  544. -- font id: 156
  545. -- text size: 16
  546. -- style flags: 0
  547. -- line height: 17
  548. -- part name: Feedback7
  549.  
  550.  
  551. -- part 52 (field)
  552. -- low flags: 81
  553. -- high flags: 2007
  554. -- rect: left=284 top=267 right=325 bottom=507
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 0 / 0
  557. -- text alignment: 0
  558. -- font id: 156
  559. -- text size: 16
  560. -- style flags: 0
  561. -- line height: 17
  562. -- part name: Feedback8
  563.  
  564.  
  565. -- part 58 (button)
  566. -- low flags: 00
  567. -- high flags: A004
  568. -- rect: left=268 top=321 right=340 bottom=413
  569. -- title width / last selected line: 0
  570. -- icon id / first selected line: 0 / 0
  571. -- text alignment: 1
  572. -- font id: 0
  573. -- text size: 12
  574. -- style flags: 0
  575. -- line height: 16
  576. -- part name: Answer
  577. ----- HyperTalk script -----
  578. on mouseUp
  579.   send mouseUp to bg btn "done"
  580.   repeat with i = 1 to number of lines in fld "origins"
  581.     set the loc of bg btn (i + 6) to (line i of fld "origins")
  582.   end repeat
  583.   put line 1 of fld "key" into theLocs
  584.   repeat with i = 1 to number of lines in fld "origins"
  585.     get item (i*2 - 1) to (i*2) of theLocs
  586.     set the loc of bg btn (i + 6) to it
  587.   end repeat
  588. end mouseUp
  589.  
  590.  
  591. -- part 68 (button)
  592. -- low flags: 00
  593. -- high flags: A004
  594. -- rect: left=68 top=321 right=340 bottom=213
  595. -- title width / last selected line: 0
  596. -- icon id / first selected line: 0 / 0
  597. -- text alignment: 1
  598. -- font id: 0
  599. -- text size: 12
  600. -- style flags: 0
  601. -- line height: 16
  602. -- part name: Check Answer
  603. ----- HyperTalk script -----
  604. on mouseUp
  605.   lock screen
  606.   set cursor to watch
  607.   put empty into theList
  608.   get line 1 of fld "key"
  609.   repeat with i = 1 to (number of items in it)/2
  610.     put item (i*2 - 1) of it & "," & item (i*2) of it into theLoc
  611.     if the loc of bg btn (i + 6) = theLoc then put "t," after theList
  612.     else put "f," after theList
  613.   end repeat
  614.   delete last char of theList
  615.   if theList = "t,t,t,t,t,t,t"
  616.   then put fld "feedback1" into fld "MasterFeedback"
  617. else put fld "feedback2"  into fld "MasterFeedback"
  618. show fld "MasterFeedback"
  619. show bg btn "Done"
  620. unlock screen
  621. end mouseUp
  622.  
  623.  
  624. -- part 69 (field)
  625. -- low flags: 81
  626. -- high flags: 0001
  627. -- rect: left=423 top=0 right=13 bottom=466
  628. -- title width / last selected line: 0
  629. -- icon id / first selected line: 0 / 0
  630. -- text alignment: 65535
  631. -- font id: 4
  632. -- text size: 9
  633. -- style flags: 0
  634. -- line height: 12
  635. -- part name: CardTitle
  636.  
  637.  
  638. -- part 70 (button)
  639. -- low flags: 00
  640. -- high flags: 2000
  641. -- rect: left=482 top=208 right=234 bottom=509
  642. -- title width / last selected line: 0
  643. -- icon id / first selected line: 1234 / 1234
  644. -- text alignment: 1
  645. -- font id: 0
  646. -- text size: 12
  647. -- style flags: 0
  648. -- line height: 16
  649. -- part name: Lesson
  650. ----- HyperTalk script -----
  651. on mouseUp
  652.   lesson "1.1.3"
  653. end mouseUp
  654.  
  655.  
  656. -- part 71 (field)
  657. -- low flags: 81
  658. -- high flags: 0002
  659. -- rect: left=0 top=0 right=117 bottom=57
  660. -- title width / last selected line: 0
  661. -- icon id / first selected line: 0 / 0
  662. -- text alignment: 0
  663. -- font id: 3
  664. -- text size: 12
  665. -- style flags: 0
  666. -- line height: 16
  667. -- part name: origins
  668.  
  669.  
  670. -- part 72 (field)
  671. -- low flags: 81
  672. -- high flags: 0002
  673. -- rect: left=59 top=0 right=117 bottom=120
  674. -- title width / last selected line: 0
  675. -- icon id / first selected line: 0 / 0
  676. -- text alignment: 0
  677. -- font id: 3
  678. -- text size: 12
  679. -- style flags: 0
  680. -- line height: 16
  681. -- part name: destinations
  682.  
  683.  
  684. -- part 73 (field)
  685. -- low flags: 81
  686. -- high flags: 0002
  687. -- rect: left=122 top=0 right=136 bottom=158
  688. -- title width / last selected line: 0
  689. -- icon id / first selected line: 0 / 0
  690. -- text alignment: 0
  691. -- font id: 3
  692. -- text size: 12
  693. -- style flags: 0
  694. -- line height: 16
  695. -- part name: decisions
  696.  
  697.  
  698. -- part 74 (field)
  699. -- low flags: 81
  700. -- high flags: 0002
  701. -- rect: left=0 top=137 right=172 bottom=402
  702. -- title width / last selected line: 0
  703. -- icon id / first selected line: 0 / 0
  704. -- text alignment: 0
  705. -- font id: 3
  706. -- text size: 12
  707. -- style flags: 0
  708. -- line height: 16
  709. -- part name: key
  710.